home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / yam_i_dodatki / yamscripts / deletefolder.rexx < prev    next >
OS/2 REXX Batch file  |  1997-07-22  |  660b  |  25 lines
  1. /* DeleteFolder.rexx 1.0 - Quickly deletes all messages in the current folder.
  2. ** Send comments and suggestions to knikulai@utu.fi
  3. ** Check http://www.utu.fi/~knikulai/ARexx.html for many more useful scripts */
  4. options results
  5.  
  6. conf='yes' /* Set to yes, if you want a confimation requester! */
  7.  
  8. address 'YAM' 
  9. if upper(conf)='YES' then do
  10.     'GetFolderInfo name'
  11.     'Request "Delete all messages in folder' result'?" "_Yes, do it!|_No way!"'
  12.     if result=0 then exit
  13.     end
  14.  
  15. name=result
  16. 'GetFolderInfo path'
  17. path=result
  18. if rc=0 then do
  19.     if pos(':',path)=0 then path='YAM:'path
  20.     path=path'/#?'
  21.     address command 'Delete >nil:' path
  22.     address 'YAM' 'MailUpdate'
  23.     end
  24. exit
  25.